home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 26 / AMIGAplus Sonderheft 26 (2000)(Falke)(DE)(Track 1 of 2)[!].iso / Magazin / Future-Online / down / sp_napalmsave.lzx / NapalmSaveGames V1.0 / Store.lha / Napalm-Human next >
Text File  |  1999-11-20  |  1KB  |  60 lines
  1. if not exists "ENV:"
  2.  Assign ENV: RAM:
  3. endif
  4. if not exists "T:"
  5.  Assign T: RAM:
  6. endif
  7.  
  8. if exists "Devs:monitors/PAL"
  9.  DEVS:MONITORS/PAL
  10. endif
  11.  
  12. ;assign Napalm_CD: hd1:napalm-cd
  13. assign Napalm: ""
  14.  
  15. ; CD Part
  16. assign Napalm_O: NAPALM_CD:Objects
  17. assign Napalm_G: NAPALM_CD:Graphics
  18. assign Napalm_I: NAPALM_CD:Images
  19. assign Napalm_S: NAPALM_CD:Sounds
  20.  
  21. ; HD Part
  22. assign Napalm_M: missions
  23. assign Napalm_E: exec
  24. assign Napalm_X: store-h
  25. assign Napalm_Y: setup
  26. assign Napalm_U: units
  27.  
  28. if exists "ENV:RtgMaster_old"
  29.  delete >NIL: ENV:RtgMaster_old ALL
  30. endif
  31.  
  32. if exists "ENV:RtgMaster"
  33.  rename ENV:RtgMaster ENV:RtgMaster_old
  34. endif
  35.  
  36. Makedir >NIL: ENV:RtgMaster
  37. Copy >NIL: Napalm_Y:c2p to ENV:RtgMaster
  38. Copy >NIL: Napalm_Y:c2pcurr to ENV:RtgMaster
  39.  
  40. Stack 16384
  41. CrimsonCrisis
  42.  
  43. if exists "ENV:RtgMaster_old"
  44.  delete >NIL: ENV:RtgMaster ALL
  45.  rename >NIL: ENV:RtgMaster_old ENV:RtgMaster
  46. endif
  47.  
  48. ; end
  49. assign Napalm: dismount
  50. assign Napalm_O: dismount
  51. assign Napalm_G: dismount
  52. assign Napalm_I: dismount
  53. assign Napalm_S: dismount
  54. assign Napalm_M: dismount
  55. assign Napalm_E: dismount
  56. assign Napalm_X: dismount
  57. assign Napalm_Y: dismount
  58. assign Napalm_U: dismount
  59.  
  60.